home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinXP Start Panel Visibility.xpl < prev    next >
Text File  |  2001-04-26  |  1KB  |  45 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Desktop\Options"
  5. "NAME"="Start Panel UI"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Show Start Panel UI (Visible)"
  8. "DESCRIPTION 1"="Specifies whether or not the Start Panel UI is visible in Windows XP."
  9. "DESCRIPTION 2"="Default is checked.  If you uncheck this, the Start Panel UI will not be displayed."
  10. "COMMENT 1"="Found while exploring Windows XP's registry."
  11. "VERSION"="1.01"
  12. "AUTHOR"="CptSiskoX on behalf of Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "CONTACTURL"="about:mozilla"
  15. "OSVERSION"="000001"
  16.  
  17. 'Declaration of some constants
  18. sP="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\StartPage\StartPanelUI_Visible"
  19.  
  20. 'Called when the Plugin is started
  21. SUB Plugin_Initialize
  22.  s=RegReadValue(sP)
  23.  if s=1 then
  24.   Call SetUIElement(1,true)
  25.  end if
  26. END SUB
  27.  
  28. 'Called when the Plugin should validate the Data the user has entered
  29. SUB Plugin_CheckData(ElementIndex)
  30. END SUB
  31.  
  32. 'Called when the Plugin should apply the changes
  33. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  s=GetUIElement(1)
  35.  if s=true then
  36.   Call RegWriteValue(sP,1,2)
  37.  else
  38.   Call RegWriteValue(sP,0,2)
  39.  end if
  40. END SUB
  41.  
  42. 'Called when the Plugin is about to be removed from memory
  43. SUB Plugin_Terminate
  44. END SUB
  45.